home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1993 April: Penguin on DISC / ADC Developer CD (1993-04) (''Penguin On DISC'')_iso / Dev.CD Apr 93.iso / Utilities / MPW Interfaces 7.1 Beta / AIncludes / CTBUtilities.a < prev    next >
Encoding:
Text File  |  1992-08-28  |  2.4 KB  |  136 lines  |  [TEXT/MPS ]
  1. ;_____________________________________________
  2. ;    File:        CTBUtilities.a
  3. ;
  4. ;    Contains:    Assembler interface to the CommToolbox Utilities
  5. ;
  6. ;    Written by:    Byron Han
  7. ;
  8. ;        Copyright:    © 1988-1992 by Apple Computer, Inc.
  9. ;        All rights reserved.
  10.  
  11. ;*** Warning: This is an alpha version of the Interfaces for Cube-E. 
  12. ;***          Things may change.  Caveat Programmer.
  13.  
  14.  
  15.     IF (&TYPE('__INCLUDINGCTBUTILITIES__') = 'UNDEFINED') THEN
  16. __INCLUDINGCTBUTILITIES__     SET         1
  17.  
  18.     IF &TYPE('__INCLUDINGTRAPS__') = 'UNDEFINED' THEN
  19.     INCLUDE 'Traps.a'
  20.     ENDIF
  21.  
  22.     MACRO
  23.     _CTBCall &selector
  24.     move.w        &selector,-(sp)
  25.     move.l        sp,a0
  26.     _CommToolboxDispatch
  27.     adda.w        #$2,sp                ; Pop the selector back off 
  28.     ENDM
  29.  
  30. ;    version of CommToolbox Utilities
  31. curCTBUVersion        EQU        2
  32.  
  33. ; CTBUErr
  34. ctbuGenericError    EQU        -1
  35. ctbuNoErr            EQU        0
  36.  
  37. ; Choose responses 
  38. chooseDisaster        EQU        -2
  39. chooseFailed        EQU        -1
  40. chooseAborted        EQU        0
  41. chooseOKMinor        EQU        1
  42. chooseOKMajor        EQU        2
  43. chooseCancel        EQU        3
  44.  
  45. ; NuLookup responses 
  46. nlOk                EQU        0
  47. nlCancel            EQU        1
  48. nlEject                EQU        2
  49.  
  50. ; Name FilterProc responses 
  51. nameInclude            EQU        1
  52. nameDisable            EQU        2
  53. nameReject            EQU        3
  54.         
  55. ; Zone FilterProc responses 
  56. zoneInclude            EQU        1
  57. zoneDisable            EQU        2
  58. zoneReject            EQU        3
  59.  
  60. ; Dialog items for hook procedure 
  61. hookOK                EQU        1
  62. hookCancel             EQU        2
  63. hookOutline            EQU        3
  64. hookTitle            EQU        4
  65. hookItemlist        EQU        5
  66. hookZonetitle        EQU        6
  67. hookZonelist        EQU        7
  68. hookLine            EQU        8
  69. hookVersion            EQU        9
  70. hookReserved1        EQU        10
  71. hookReserved2         EQU        11
  72. hookReserved3        EQU        12
  73. hookReserved4        EQU        13
  74.  
  75. ; Virtual items in the dialog item list 
  76. hookNull            EQU        100
  77. hookItemRefresh        EQU        101
  78. hookZoneRefresh        EQU        102
  79. hookEject            EQU        103
  80. hookPreflight        EQU        104
  81. hookPostflight        EQU        105
  82. hookKeyBase            EQU        1000
  83.  
  84. ;    NuLookup data structures
  85. NLTypeEntry        Record 0
  86. hIcon    ds.l    1
  87. ICON    EQU        hIcon   ; for backward compatibility
  88. typeStr    ds.b    34
  89.     EndR
  90.     
  91. NBPReply        Record 0
  92. theEntity         ds.b    102
  93. theAddr            ds.l    1
  94.                 EndR
  95.     
  96.     
  97. InitCTBUtilities    EQU     $401
  98. CTBGetCTBVersion    EQU        $405
  99. NuLookup            EQU     $406
  100. NuPLookup            EQU        $407
  101. StandardNBP            EQU     $406
  102. CustomNBP            EQU        $407
  103.         
  104.     MACRO
  105.     _InitCTBUtilities
  106.     _CTBCall    #InitCTBUtilities
  107.     ENDM
  108.         
  109.     MACRO
  110.     _CTBGetCTBVersion
  111.     _CTBCall    #CTBGetCTBVersion
  112.     ENDM
  113.     
  114.     MACRO
  115.     _NuLookup
  116.     _CTBCall    #NuLookup
  117.     ENDM
  118.     
  119.     MACRO
  120.     _NuPLookup
  121.     _CTBCall    #NuPLookup
  122.     ENDM
  123.     
  124.     MACRO
  125.     _StandardNBP
  126.     _CTBCall    #StandardNBP
  127.     ENDM
  128.     
  129.     MACRO
  130.     _CustomNBP
  131.     _CTBCall    #CustomNBP
  132.     ENDM
  133.     
  134.     
  135.     ENDIF         ; already included
  136.